home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / DOpusQuery.dopus5 < prev    next >
Text File  |  1998-08-21  |  685b  |  20 lines
  1. /* DOpusQuery.dopus5 */
  2. options results
  3. lf = '0a'x
  4. address 'DOPUS.1'
  5. dopus front
  6. dopus query font screen
  7. text = 'Current Opus screen font:'||lf||word(result,1)||lf||'Size: 'word(result,2)
  8. dopus request '"'text'" OK'
  9. dopus query background lister
  10. text = 'Current icon lister background: '||lf||word(result,1)||lf||'Options: 'subword(result,2)
  11. dopus request '"'text'" OK'
  12. dopus query sound Startup
  13. text = 'Sound you hear when Opus starts:'||lf||word(result,1)||lf||'Volume: 'word(result,2)
  14. dopus request '"'text'" OK'
  15. dopus query pens gauge
  16. text = 'Current fuel gauge colours when:'||lf||'Full: 'word(result,2)||lf||'Not full: 'word(result,1)
  17. dopus request '"'text'" OK'
  18. dopus back
  19. exit
  20.